home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / wipe.ifx < prev   
Text File  |  2004-08-03  |  1KB  |  78 lines
  1. /*
  2.  * $VER: Wipe 1.00.00 (24.9.92)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Create a wipe effect, using a black-and-white animation to control
  8.  * the blend between the swap and main buffer.
  9.  *
  10.  */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. SIGNAL ON BREAK_C
  15.  
  16. /*
  17.  * This requires a Main and Swap buffers.
  18.  */
  19. GetMain ; IF result = "" THEN EXIT
  20. GetSwap ; IF result = "" THEN EXIT
  21.  
  22. /*
  23.  * This uses whatever the current render module is.
  24.  */
  25.  
  26. /*
  27.  * Request the output animation name:
  28.  */
  29. RequestFile '"Enter Output Animation:"'
  30. IF rc ~= 0 THEN EXIT
  31. output = result
  32.  
  33. IF EXISTS(output) THEN DO
  34.    RequestResponse 'Output animation exists.  Overwrite?'
  35.    IF rc ~= 0 THEN EXIT
  36.    ADDRESS COMMAND 'c:Delete >NIL:' output
  37.    END
  38.  
  39. /*
  40.  * Request the animation to control the wipe:
  41.  */
  42. RequestFile '"Enter Wipe Control Animation:"'
  43. IF rc ~= 0 THEN EXIT 0
  44. anim = result
  45.  
  46. /*
  47.  * Turn on the alpha channel for compositing.
  48.  */
  49. LockRange 0 OFF
  50.  
  51. /*
  52.  * Loop through the animation, wiping between the buffers.
  53.  */
  54. DO frame = 1
  55.  
  56.    Render Close
  57.  
  58.    LoadAlpha anim frame
  59.    IF rc ~= 0 THEN LEAVE
  60.  
  61.    Merge 100 Alpha
  62.  
  63.    Render Go
  64.    SaveRenderedAs 'ANIM' output Keep Append
  65.  
  66.    LockRange 0 ON
  67.  
  68.    Undo
  69.  
  70.    END
  71.  
  72. BREAK_C:
  73.  
  74. SaveRenderedAs 'ANIM' output Close
  75. Render Close
  76.  
  77. EXIT
  78.